Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/fld2_16/ejfold2.frm

Text File | 1994-12-28 | 9KB | 295 lines

VERSION 2.00
Begin Form Form2
   BackColor       =   &H00808080&
   BorderStyle     =   3  'Fixed Double
   Caption         =   "Test Folder"
   ClientHeight    =   4356
   ClientLeft      =   1596
   ClientTop       =   1920
   ClientWidth     =   7656
   ControlBox      =   0   'False
   Height          =   4800
   Left            =   1536
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4356
   ScaleWidth      =   7656
   Top             =   1536
   Width           =   7776
   Begin CommandButton Command1
      Caption         =   "Between Tabs"
      Height          =   372
      Index           =   4
      Left            =   5400
      TabIndex        =   16
      Top             =   3492
      Width           =   1416
   End
   Begin CommandButton Command2
      Caption         =   "First Form"
      Height          =   336
      Left            =   3024
      TabIndex        =   15
      Top             =   3960
      Width           =   1308
   End
   Begin CommandButton Command1
      Caption         =   "Side"
      Height          =   372
      Index           =   3
      Left            =   4428
      TabIndex        =   10
      Top             =   3492
      Width           =   912
   End
   Begin CommandButton Command1
      Caption         =   "Tabs per Row"
      Height          =   372
      Index           =   2
      Left            =   2880
      TabIndex        =   9
      Top             =   3492
      Width           =   1488
   End
   Begin CommandButton Command1
      Caption         =   "RowOffset"
      Height          =   372
      Index           =   1
      Left            =   1584
      TabIndex        =   8
      Top             =   3492
      Width           =   1236
   End
   Begin CommandButton Command1
      Caption         =   "Style"
      Height          =   372
      Index           =   0
      Left            =   612
      TabIndex        =   7
      Top             =   3492
      Width           =   912
   End
   Begin PictureBox Picture1
      Height          =   264
      Index           =   0
      Left            =   36
      ScaleHeight     =   240
      ScaleWidth      =   240
      TabIndex        =   6
      TabStop         =   0   'False
      Top             =   2448
      Width           =   264
   End
   Begin PictureBox Picture1
      Height          =   264
      Index           =   1
      Left            =   36
      ScaleHeight     =   240
      ScaleWidth      =   240
      TabIndex        =   5
      TabStop         =   0   'False
      Top             =   2160
      Width           =   264
   End
   Begin SSPanel folder
      Alignment       =   0  'Left Justify - TOP
      BevelWidth      =   2
      BorderWidth     =   1
      Caption         =   "Test Folder, Tab 4"
      FloodColor      =   &H00000000&
      ForeColor       =   &H00FFFFFF&
      Height          =   1452
      Index           =   4
      Left            =   6624
      Outline         =   -1  'True
      TabIndex        =   4
      Tag             =   "Tabs1"
      Top             =   2304
      Width           =   2172
   End
   Begin SSPanel folder
      Alignment       =   0  'Left Justify - TOP
      BevelWidth      =   2
      BorderWidth     =   1
      Caption         =   "Test Folder, Tab 3"
      ForeColor       =   &H00FFFFFF&
      Height          =   1452
      Index           =   3
      Left            =   6480
      Outline         =   -1  'True
      TabIndex        =   3
      Tag             =   "Tabs1"
      Top             =   2160
      Width           =   2172
   End
   Begin SSPanel folder
      Alignment       =   0  'Left Justify - TOP
      BevelWidth      =   2
      BorderWidth     =   1
      Caption         =   "Test Folder, Tab 2"
      FloodColor      =   &H0000FF00&
      Height          =   1452
      Index           =   2
      Left            =   6336
      Outline         =   -1  'True
      TabIndex        =   2
      Tag             =   "Tabs1"
      Top             =   2016
      Width           =   2172
   End
   Begin SSPanel folder
      Alignment       =   0  'Left Justify - TOP
      BevelWidth      =   2
      BorderWidth     =   1
      Caption         =   "Test Folder, Tab 1"
      FloodColor      =   &H0000FFFF&
      Height          =   1452
      Index           =   1
      Left            =   6192
      Outline         =   -1  'True
      TabIndex        =   0
      Tag             =   "Tabs1"
      Top             =   1836
      Width           =   2172
   End
   Begin SSPanel folder
      Alignment       =   0  'Left Justify - TOP
      BevelWidth      =   2
      BorderWidth     =   1
      Caption         =   "Test Folder, Tab 0"
      FloodColor      =   &H000000FF&
      Height          =   1992
      Index           =   0
      Left            =   900
      Outline         =   -1  'True
      TabIndex        =   1
      Tag             =   "Tabs1"
      Top             =   108
      Width           =   5808
      Begin SSPanel texto
         BevelInner      =   1  'Inset
         BorderWidth     =   0
         Caption         =   "Between"
         Height          =   264
         Index           =   4
         Left            =   324
         RoundedCorners  =   0   'False
         TabIndex        =   17
         Top             =   1620
         Width           =   5088
      End
      Begin SSPanel texto
         BevelInner      =   1  'Inset
         BorderWidth     =   0
         Caption         =   "Side"
         Height          =   264
         Index           =   3
         Left            =   324
         RoundedCorners  =   0   'False
         TabIndex        =   11
         Top             =   1296
         Width           =   5088
      End
      Begin SSPanel texto
         BevelInner      =   1  'Inset
         BorderWidth     =   0
         Caption         =   "Tabs/Row"
         Height          =   264
         Index           =   2
         Left            =   324
         RoundedCorners  =   0   'False
         TabIndex        =   14
         Top             =   972
         Width           =   5088
      End
      Begin SSPanel texto
         BevelInner      =   1  'Inset
         BorderWidth     =   0
         Caption         =   "RowOffset"
         Height          =   264
         Index           =   1
         Left            =   324
         RoundedCorners  =   0   'False
         TabIndex        =   13
         Top             =   648
         Width           =   5088
      End
      Begin SSPanel texto
         BevelInner      =   1  'Inset
         BorderWidth     =   0
         Caption         =   "Style"
         Height          =   264
         Index           =   0
         Left            =   324
         RoundedCorners  =   0   'False
         TabIndex        =   12
         Top             =   324
         Width           =   5088
      End
   End
End
Option Explicit
Dim estilo As Integer
Dim rowofs As Integer
Dim tabsperrow As Integer
Dim lado As Integer
Dim betw As Integer

Sub adjust_text ()
    Dim s As String
    Select Case estilo
        Case 0: s$ = "Normal/Chamfered"
        Case 1: s$ = "Slanted"
        Case 2: s$ = "Chicago"
    End Select
    texto(0).Caption = "Style: " & s$
    texto(1).Caption = "Row Offset: " & rowofs
    texto(2).Caption = "Tabs per Row: " & tabsperrow
    Select Case lado
        Case False: s$ = "Right"
        Case True: s$ = "Left"
    End Select
    texto(3).Caption = "Side: " & s$
    texto(4).Caption = "Between: " & (betw - 12)
End Sub

Sub Command1_Click (Index As Integer)
    Dim success As Integer
    Select Case Index
        Case 0: estilo = (estilo + 1) Mod 3
        Case 1: rowofs = (rowofs + 6) Mod 18
        Case 2: tabsperrow = 1 + tabsperrow Mod 5
        Case 3: lado = Not lado
        Case 4: betw = (betw + 12)